




connosco q + AP am r eo ' , h 
se À e * ne al Mm ro guinças 
O DÇ e o e 
. pm ado 1 o rp sim : 
“ mesa mo ni mig abs e oem onça di an Sp pcs 0 sp à 
va bind had hd e atira 


mes 








72. 


E TR 







.- 
des 


tod Dep ado Md gd 







E pesto cora questo 






spas. - 


Desses sas 
eras . e 
:s 








“| A Linha REM 
























“ 
= FA 
: A na 0 dd CPU UMida 6 
o Dedo 
apud pu oram a 
josue ge , “mata ” 
Dna a A RR DR AO 
ã que pump pa + us asa + e a 
É E o nn 
E e ri ça em ea qu 
E 4 a á RE es e ão Ae o do Dido Dn ao cia e! RR 
4 ' po ND E A - DAE sent ranma anjo n 
1 Sgt Tom Res qui e Dq e ag o 
' regula atra ae gases a cw 
so ai md gem omsia 
' epa ca pi si ms 
dota E or corintiano o ms . 
morrem cue pensar cota duspmançens: mes oo» o a 
o di e rt pp mo 
DE o cho nos ato ci Ra SRA ei . 
e id da Semanas wi coco 
4 DE js prmsqunaponip irmas sore eso 0 
o o ria a pm o man der mente 
DOS rio a E a Ap a DR do ci fe a di a o ci A a UR RR UU 
> paga pegrtas ou a ' n “» “ , DON boo DE mts DÓ ra a o 
ep de ad A 2) po Entra Pranto o So tr O QU q e a Md a sa ir A 
pe ir pp o Su DO E AS Ap aii ao eo é ao petiroa D qudo pa ten rm eo 
' o per id nd Sommer ri ED e ii Apr a ir o — aerea e rd De a e pm ra ce ! 
N o o E dy app pomar E me e a O 0 Mo Me a 6 e 0 a | 
Eu o = a a Dao qu dp ig og meet om pci a eis — at rp ta a a isa 0 o es e 
rEsi e Lsio » e Empate pd af Eng iagj Sap  j  a 1 arterial oo 
TO Es E E SOM PE -ENToO O os Um e rtepuii o pi ga pe io O dom ide sto a ai a a eme sesera o comca o = O 
o Da o 24 dr Sep , a Sis ig, O no DO Ed di o ii o RA O QU TD q a as mi o 
sssgstpedogo ; E a iai pd nos rm 4» TUR a TRA Sn ng aa mares mer 
dote * rss Cada Es e RR e e E o Do ED e ay e Com os fair ra gato Praia Dm trem miga rentes meras 
ão " sale E E a a eg e, ni ima o as Dome ones ceu a ame 
ese eis O ad DS . Dl ad ce had fe sp ec o dep > 
bed sd E e Ts topo para meteoros CD Ve a a Ir e ali a tea dr - 
ne ny ip fais Do» = - E nro fon gemia em Drandisetras br renan, o 





— Sp bi a a e sm O E pe aço O SO O SU o MUS a aa ra 
Pesaro Era ya 5 o ra Mu qu o Po De q o e De De fo O e ac = 
E E - O preta pe a Ii q a e e e a o 
a “ mbps pa] Los ds ep Dm po pi DO O MRS pa ass a mi DS CD 
a Ei a pre ra] Dl E ms a E q a a a a 
Um e A, A, TR | A A O A E RP q q O De 
we e! po Sp NV a o pp A A e pi em ai mm 
lda state ty Ea a Pres ri e a ud o sds ce 
pgs as Ta a e e a a a pe pa e cm A io a e ri 
' k 2 Dog Mis A o A MS DS A O a a a teia cm Mr MD a = 
me ra ia pd pe DR Dm ag DO E e Da Dr Mi O PR Ig E AE, 1 SI sq SP SL A A, ” separa. 
Wvi rá mé 0, tip ndo a pa mad a a doa ua pum e Mt ai a a mi ese 
rp o Pro Mi, Ai, Si ig ti is ão a na poe rpg 
Se pil y D DO copo P  uag 
Pd tir tada em . 





ni SS, ço iigrso » 









str totae4e 


(eq e» ua 


O amd pos (e Er á te td ca SA EU dê . Sep US ni MR como 
ota ey A k o E ” , puto ips 





E 


Soluções 
Microidéia 








A Microidéia desenvolveu uma linha 
completa de aplicativos domésticos para as 
principais famílias de micros fabricados no 
País. São programas auto-explicativos, com 
documentação em português, desenvolvidos 
aqui, e totalmente voltados para as 
necessidades do usuário brasileiro. 

Ignore a pirataria e experimente o 
software original Microidéia. 

Conheça aqui alguns de nossos 


programas. 


Orçamento Doméstico 


Para defender-se da 
inflação e das leis 
salariais brasileiras, use 
o computador. Descubra 
quais itens estão 
estourando suas 
previsões, deixando-o 
sem dinheiro no final do 
mês. 

CASSETE Cr$ 


SO2 Sinclair, Ringo, CP 200e TK'S - 30.000 
TO2 TRS 80, CP 500 e 300, 


JR e DGT 1000 45.000 
KO2Z TK 2000 45.000 
AO2 Apple Il 45.000 
Diskette Cr$ 


DTO2 TRS 80, CP500e CP300 | 220.000 





DAO2 Apple Il e compatíveis 220.000 
DKO2 TK 2000 220.000 
Contas a Pagar 


Controle de maneira 
eficiente a data de 
pagamento de suas 
contas, com totais pagos 
e a pagar. Listagem em 
impressora e em tela. 
Não pague multa!! 


Cassete Cr$ 
SOB Sinclair, TK, Ringo e CP 200 — 30.000 
TO8 TRS 80, CP 500, CP 300. 





JR E DGT 1000 45.000 
KO8 TK 2000 45.000 
AO8 Apple Il e compatíveis 45.000 
Diskette Cr$ 
DTO8, TRS 80, CP 500, CP 300 e 

NAJA 220.000 
DAO8 220.000 
DKO8 TK 2000 220.000 


Fluxo de Caixa 


Controle 
eficientemente seu fluxo 
de receitas e despesas, 
sabendo com 
antecedência os 
superavits e deficits de 
caixa. Com isso você 
ganha tempo para 
negociar as melhores 
taxas de aplicação ou 
empréstimos. 


Cassete Cr$ 
S06 . nn SOW 
TOS: = e gerir saias 45000 
KO6 45000 
ADO ice “BDOD 
Diskette Cr$ 
DIOS -—eaaç e 220:000 
DAO6 220.000 
DKO6 220.000 


Cadastro de Clientes 
Mala Direta 


Cadastre seus 
clientes, amigos e 
fornecedores com dados 
completos e emita 
listagens ou etiquetas. 
Não tendo impressora, 
veja a listagem na tela. 








Cassete Cr$ 
SO9 Sinclair, TK, Ringo e CP 200 — 30.000 
TO9, TRS 80, CP 500, CP 300, 

RJ e DGT 1000 60.000 
KO9, TK 2000 45.000 
AO9 Apple 4 e compatíveis 45.000 
Diskette Cr$ 
DTO9, TRS, CP 500, CP 300 e 

NADA a e 220000 
DAO9 Apple e Compatíveis 220.000 
DKO9 TK 2000 220.000 





O Poder da Simplicidade. 


Controle de Estoque 


Saiba exatamente a 
quantidade de 
mercadorias que possui 
em estoque, evitando 
que os produtos se 
esgotem antes de serem 
repostos. Ponha sua 
empresa na era da 
Informática, com o 
controle compudorizado 


de estoque. 
Cassete Cr$ 
SO7 40.000 
1OZ = ça e e YHOOO 
AO7 45000 
O .—— came 45000 
Diskette Cr$ 
DTO7 220.000 
DAO7 220.000 
DKO7 220.000 
Código 

Quero adquirir 

o(s) seguinte(s) 

programa(s) 

Microidéia: 

Total 


de nº 


Microidéia 
Caixa Postal 6151 
20022 — Rio de Janeiro — RJ 





Estou enviando um cheque do banco 
o 


Nome 
End. 
Bairro 
Tel.: 


Micro 


Controle Bancário 


Se Seu talão de 
cheques bater com o 
computador de seu 
banco utilize seu próprio 
computador para manter 
suas contas bancárias 
sempre atualizadas. 
Evite os descuidos e 
nunca você emitirá 
cheques sem saldo 


suficiente. 

Cassete Cr$ 
SOL 300% 
TO 4500 
Ko1 45.000 
AOl 45.000 
Diskette Cr$ 
DTO1 220.000 
DAOL 220.000 
DKO1 220.000 
Da e o o a o Rs “1 
Quant. Preço 
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CORRESPONDÊNCIA 


1. Assinaturas 

Desejando obter informações sobre assinaturas, escreva 
para: 

“Assinaturas 

Revista MICROBITS 

Alc Editora Campus Ltda. 

Rua Barão de Itapagipe 55 — 20261 Rio de Janeiro, RJ 
Tel.: (021) 284-8443 

2. Redação 

Envie suas cartas, programas e artigos para: 

Ao Diretor Editorial — Revista MICROBITS 

Caixa Postal 12464 — 04798 São Paulo, SP. 


LEMBRETE IMPORTANTE 


Esclarecemos mais uma vez aos nossos 
leitores que a Editora Campus não é res- 
ponsável por pires questões relativas 
aos números de MICROBITS anteriores 
ao Ano Il — nº 1, Assim, solicitamos que 
as mesmas sejam diretamente tratadas 
com o Diretor Editorial, Sr. David 
Anderson, no seguinte endereço: Caixa 
Postal 12464 — 04798 — São Paulo —SP 


setores de informática, e odor: seque Eragon proc 
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e Após ler minuciosamente essa incri- 
vel revista, observei na página 3, onde 
estava escrito “correspondência”, um 
pedido de envio de cartas, programas e 
artigos. Resolvi então mandar um dos 
inúmeros programas em Assembler que 
eu (Max Oliver) e meu amigo (Vladi- 
mir Lemos) desenvolvemos. 

Este programa, o HI-SPEED para 
TK, CP200 e outros computadores de 
lógica SINCLAIR, seria uma solução 
para a transferência de dados em um 
pequeno espaço de tempo. Enquanto 
a velocidade normal de gravação e re- 
produção é de 300 bauds, o de Hl- 
SPEED é de 4200 bauds ou 14 vezes 
mais rápido do que o normal. 

O programa foi inspirado no Hl- 
SPEED do TK85 e num programa 
vendido pela SOFT-KRISTIAN. Am- 
bos eram muito grandes. Então nós os 
analisamos e conseguimos este que 
possui três comandos e ocupa 470 by- 
tes da RAMTOP e não pode ser apaga- 
do pelo NEW. 

MAX OLIVER E VLADIMIR 
TORIBIO LEMOS, 
Rio de Janeiro — RJ 


u Bits: Agradecemos o envio do progra- 
ma em linguagem de máquina. Após 
análise, esperamos publicá-lo numa fu- 
tura edição. 


e Solicito que seja feita uma revisão 
no programa “DESENHE NA TELA” 
na página 29 da revista Ano Il, nº 1, 
pois ao pressionar a tecla “ A”, ao invés 
de aparecer a ''Pena da caneta” apare- 





ce o erro “2/1006”, que indica variável 
indefinida na linha 100. 

DAVID BEN AURAM, 

São Paulo — SP 


uBits: Houve uma pequena falha na 
impressão deste programa. A causa do 
erro foi na linha 34, que deveria ser: 


30 LET A=Q 


Infelizmente a letra “A” saiu como 
“H” na listagem. 

Como a maioria dos programas pu- 
blicados são testados e impressos numa 
impressora TS 2040, é muito difícil 
passar erros. Mesmo assim, sempre há a 
possibilidade de ocorrer falha. Espera- 
mos que nos sejam notificados quando 
localizados defeitos deste tipo. 


e Primeiro, quero parabenizá-los pela 
excelente qualidade da revista, princi- 
palmente por abranger somente a área 
dos micros que utilizam a lógica 
SINCLAIR. 

O objetivo desta carta é eliminar 
certas dúvidas: 


— Na Revista Ano Il, nº 1, pude cons- 
tatar no programa “Como Criar Carac- 
teres Especiais no Seu Micro” os se: 
guintes sintomas que presumo estarem 
errados: 


1. Ao digitar o caractere a ser redese- 
nhado pelo computador, este nos for- 
nece uma matriz aleatória que não se 
parece com nenhum caractere. 


2. Depois de fornecer-lhe as coordena- 
das para mudança do caractere, e ao 
pedir que o computador demonstre o 
novo caractere no tamanho original, 
aparece no lado esquerdo inferior do 
vídeo a mensagem: “D/460”". 


Desejaria saber, se possível, como 
armazenar vários caracteres mudados e 
depois imprimi-los um ao lado do ou- 
tro, organizando composições maiores. 

Portanto, gostaria que os senhores 
corrigissem o devido programa e me 
enviassem a listagem já corrigida. 

MARCELO MAGALHÃES 
MARQUES, 
Rio de Janeiro — RJ 


uBits: Para que o referido programa 
funcione, Marcelo (e outros que nos es- 
creveram com o mesmo pedido), é ne- 
cessário implementar as modificações 
de hardware mencionadas em MICRO- 
BITS Ano |, n2 6. 


e Tenho 13 anos e gosto muito de 








computadores. Possuo um TK85 e gos- 
taria de receber informações de como 
adquirir uma impressora SINCLAIR. 
Queria também saber se é possível 
fazer um jogo com imagem tridimen- 
sional com alta resolução no TK, por 
exemplo “Defender”. E, finalmente, 
gostaria de receber um programa qual- 
quer para sintetizador de som. 
EDUARDO SCHNEIDER, 
Av. Morumbi, 6800, Morumbi 
05650 — São Paulo — SP 


uBits: Não é fácil conseguir uma im- 
pressora SINCLAIR aqui no Brasil. Su- 
gerimos que leia os classificados das re- 
vistas de microinformática — às vezes 
aparecem anúncios de venda deste 
equipamento. 

Antes de desenvolver programas em 
alta resolução é necessário fazer as mo- 
dificações no seu micro para adaptá-lo 
a funcionar daquele modo. Embora se- 
ja possível desenvolver jogos tridimen- 
sionais, é Óbvio que isto seria muito 
mais difícil do que os jogos bidimen- 
sionais. Sugerimos, então, que experi- 
mente com programas animados sim- 
ples e tente sofisticá-los cada vez mais. 

Não possuímos informações sobre 
programas para sintetizador de som. 
Caso haja leitores com dados sobre es- 
te assunto talvez possam entrar em 
contato diretamente com Eduardo. 


e Coleciono a Enciclopédia Prática de 
Informática e em um dos seus fascícu- 
los saiu o jogo “Porquinho” para mi- 
crocomputadores: CP300, CP50OO, Sys- 
data Jr. etc. e eu consegui fazer uma 
versão para o meu TK85. Gostaria de 
saber se versões como essa, de outras 
coleções, podem ser enviadas para se- 
rem analisadas por vocês, e se devem 
ser datilografadas ou gravadas em fita. 
MARCELO DE MACEDO, 
Rio de Janeiro — RJ 


uBits: Programas adaptados para ou- 
tros micros não podem ser considera- 
dos cópias exatamente, e não deve ha- 
ver problemas em publicar o seu. En- 
tretanto, preferimos receber programas 
desenvolvidos pelos nossos leitores, ou 
aqueles que foram melhorados, e não 
somente transcritos para outros micros. 

Quanto a maneira de enviar progra- 
mas para serem publicados, nossa pre- 
ferência é de recebê-los gravados em 
fita cassete (ao mínimo duas gravações 





cdi id ide e ur pioram 
k ) » enfia ovais 
o id egg 





na fita), pois assim eliminam-se erros 
de digitação. Caso isto não seja possí- 
vel, outra alternativa seria a de enviar 
os programas datilografados ou manus- 
critos, tomando muito cuidado quan- 
do copiando da tela e, subsegúente- 
mente, fazendo uma verificação linha 
por linha para conferir. 


e Venho por meio desta informar que 
a dica que lhe enviei e foi publicada no 
nº 2, apresentou um erro de imprensa 
na linha 100. O correto é 


100 LET IS=STR$((P—INT P)+ 0.005) 


Seria bom que fosse publicada uma er- 

rata pois, como está, o programa irá 

parar na linha 100 com erro 2 (variável 

não definida). 

Também observei que meu nome e 
cidade saíram errados. 

ÁLVARO FERREIRO BORUJA, 

Belém — PA 


Bits: Desculpe a nossa falha, Álvaro! 


e Adquiri, recentemente, a revista 
MICROBITS nº 2 (Ano Il) e gostaria, 
em primeiro lugar, de parabenizá-los 
pelo excelente nível da mesma. Diná- 
mica, com assuntos abordados de ma- 
neira clara e inteligente. Porém surgiu- 
me uma dúvida quanto ao programa 
FORCA em linguagem de máquina, 
pois a respeito da linha REM para aco- 
modar o bloco em Assembler, não há 
uma indicação de com quantos carac- 

teres deve ser criada esta linha. 
LUCIANO PESSOA MENDONÇA, 
Natal — RN 


uBits: 4 linha deve ter 995 caracteres 
(ao mínimo) após o “REM”, 


SERES os RE 


16514 2AQOC 40 44 4D 16 38 CB 
16522 22 2A 10 40 GA BA 28 03 
16530 C6 80 02 03 BF ED 42 20 
16538 FO C9 


O que faz este programa em lingua- 
gem de máquina? isto é relativamente fácil 
de descobrir. Para rodá-lo, digite (modo 
direto) ou inclua como linha de programa 
RAND USR 16514. 

A charada é: VOCÊ PODE EXPLICAR 
COMO ELE FUNCIONA, INSTRUÇÃO 
POR INSTRUÇÃO? Faça a desmontagem 
do programa e PENSE!!! 

Escreva-nos com sua resposta, publi- 
caremos os nomes e as soluções dos acerta- 
dores. 


NELSON SANTOS 
Rio de Janeiro — RJ 








- A excelente revista Micro Staind, em seu número 37 (outubro 1984), 
publicou na seção “Dicas”, página 81, a seguinte: 


“Ilusão de ótica 


Seja enganado pela rapidez de Assembler com esta dica. Primeiro, sua a 
linha 


1 REM as (30 caracteres) .... 
Em seguida, entre com os códigos em hexadecimal ... 


16514 00 2A OC 40 23 06 16 
GE 21 7E FE 76 28 04 
32 2 40 173 ww» 

>. F3 10 EF C9 


Depois de entrar com os códigos, digite este programa em BASIC: 


5 POKE 16514,6 a 
10 RAND USR 16515 
15 POKE 16514,134 
20 RAND USR 16515 
25 RUN 


Rode esta dica e acerte o desafio de tentar descobrir qual o sentido do , e iu 


movimento apresentado na tela. 
JEAN MARCELO DE OLIVEIRA — SP 


Observe que da maneira como estão combinados a rotina ASSEMBLY e o 
programa BASIC, a única maneira de interromper o programa é pressionando 
a tecla BREAK, já que a linha 25 reinicia sempre a execução. 

Nosso DESAFIO é o seguinte — escrever uma rotina ASSEMBLY que 
atenda às seguintes especificações: 


faça o mesmo efeito visual; 

dispense ser ''cercada'' por um programa BASIC; 
seja acessada por RAND USR 16514; 

repita o efeito 256 vezes; 

gaste o mesmo número de bytes que a original :25 ! 


* * * % 


Será que está claro? 


a) (Q REM 25 caracteres quaisquer; 
b) entrada dos novos códigos hexa; 


c) a digitação de RAND USR 16514 (modo direto) deve produzir a repeti- ni Ni 


ção do efeito 256 vezes! 
No próximo número publicaremos o(s) programa(s) acertador(es) que 


nos chegarem devidamente explicados, bem como (naturalmente) o(s) nome(s) 


de seu(s) autor(es). 


Se por acaso não houver acertador algum — no que não acreditamos —| 


publicaremos a solução e ... um novo DESAFIO. Até lá, e boas dores de 


cabeça. 


EM TEMPO: Enviem colaborações para esta seção! Tanto faz em BASIC ou o 





em ASSEMBLY, o importante é a CRIATIVIDADE. Não escondam seus Mn 


talentos. 


* Bem, aqui há certamente um erro de impressão: apenas 25 caracteres são necessários. ne 


Nelson N.S. Santos| | 
AS CAA ENE e 





FAS TES 









O MICROBITS 


ma das virtudes do programador é saber quando 
usar o BASIC, e quando usar a linguagem de má- 
quina. Como regra geral, diríamos que o BASIC é 
mais fácil — devido a ser linguagem de alto nível, e mais 
lento — devido a ser linguagem interpretada. 

Assim, certas instruções em BASIC tornam-se parti- 
cularmente lentas, em especial loops FOR/NEXT. Logo, é 
vantagem substituí-los quando possível por loops em lin- 
guagem de máquina, apesar da programação ASSEMBLY 
ser bastante mais trabalhosa. 

Toda esta introdução é para falarmos sobre progra- 
mas para geração de linhas REM com grande número de 
caracteres, necessárias para programas ASSEMBLY exten- 
sos. Estudamos com cuidado diversas matérias sobre o as- 
sunto (ver bibliografia no final deste artigo), em especial a 
de Antonio Sílvio Cezar, publicada em MICROBITS, Ano 
||, Nº 1, e acreditamos ter criado um programa híbrido 
BASIC e ASSEMBLY bastante prático e rápido. 

Sugerimos ao leitor de MICROBITS que grave este 
programa em fita de boa qualidade, pois irá usá-lo muitas 
e muitas vezes daqui para frente. Entre com as seguintes 
listagens, nesta ordem. As explicações dos detalhes estão 
no final do artigo. 
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“1 REM 48 caracteres quaisquer o 
POKE 16510,0 gia peida 


LISTAGEM 1 — Reservando espaço para o programa 
ASSEMBLY 


- 


999 STOP 
1000 LET E=16514 
1010 LET H$="" à | 
1020 IF H$="" THEN INPUT H$ 
1030 IF H$="'S” THEN STOP 

1040 PRINT E, H$(TO2) 
1050 POKE E,16*CODE H$+CODE H$(2)-476 
1060 LET E=E+1 | 

1070 LET H$=H$I TO) + 
1080 IF PEEK 16442=2 THEN CLS 
1090 GOTO 1020 | 


LISTAGEM 2 — O carregador ASSEMBLY 


Digite RUN 1000, e dê entrada ao programa ASSEM- 
BLY da listagem 3 (quantos códigos você quiser de cada 
vez). Após C9 digite S para interromper. 


16514 CD 23 OF A CALLFAST 
16517 01 00 00 B LDBCO E 
"16520 21 B8 4) C LDHL,16568 
16523 E5 D PUSHHL 
16524 C5 E PUSHBC. 





















16525 CD E 09. je 
— 16528 e “a 
o 16529 2a Bs a H 
16533 » Bs ra 
* 16536 2A 29 “0 E 
16539 09 Sha 
— 16540 2 22 EE J 
16544. E ” 


LISTAGEM 3 — O programa ASSEMBLY 


NÃO digite RAND USR 16514 para “testar”. Tudo 
que você irá obter é um lindro CRASH. Para terminar digi- 
te o programa BASIC da listagem 4. 





LISTAGEM 4 — Programa BASIC para córcar a rotina 
ASSEMBLY 


Após ter entrado com as quatro listagens, vamos tes- 
tar o funcionamento do programa. Digite RUN e responda 
à pergunta da linha 1) com qualquer número pequeno, 
por exemplo 7. Num piscar de olhos (e num piscar de tela 
também, pois a rotina em linguagem de máquina entra em 
FAST), lá está a sua linha 2 REM com 7 asteriscos. 

Para fazer novos testes, elimine a linha 2 REM “pro- 
duzida” (na verdade apenas expandida pelo programa) e 
volte a colocar 2 REM sem nenhum carácter após. O pro- 
grama é bastante rápido. Não conseguimos cronometrar o 
tempo de expansão para 1000 bytes — é certamente me- 
nor que um segundo. 

Se for necessário, você pode produzir quantas linhas 
REM precisar, com quantos caracteres quiser! Suponha- 
mos que você precise de uma linha com 150 e outra com 
300 caracteres. Primeiramente faça uma com 156 carac- 
teres. Edite-a, troque seu número para qualquer número 
livre no programa (por exemplo 5), e substitua a linha 2 
com 15(Q caracteres por novamente 2 REM. Rode outra 


vez O programa, e crie a linha 2 REM com 300 caracteres.. 


Viu? Fácil e rápido. 


Após fazer todos os testes que desejar, apague todas 
as linhas “criadas”, volte a colocar 2 REM e grave o pro- 
grama numa fita de boa qualidade, sem apagar o carrega- 
dor ASSEMBLY. Você tem agora uma ferramenta podero- 
sa para auxiliá-lo na entrada de códigos de máquina. 

Depois de gravado, e depois de utilizado para a fina- 
lidade que você desejou, apague a linha Q, e as linhas de 10 
até 5) — elas já terão cumprido seu papel. 

Agora, vamos às explicações teóricas, analisando em 
profundidade o programa ASSEMBLY. 


A) A rotina trabalha em FAST. O endereço de FAST 

na ROM é 0F23 (3875). Digitar RAND USR 3875 é 

equivalente a digitar FAST. Você pode ''chamar” FAST 

em seus programas em linguagem de máquina da mesma 
forma que fizemos. 

Precisamos agora preparar o terreno para a chamada 
da rotina MAKE ROOM da ROM que expande o programa 
BASIC. Para tal é necessário que: 

e BC contenha o número de bytes de que o programa vai 
ser expandido. Lembre-se sempre: BC = byte counter 
(contador de bytes). 

e Hi contenha o endereço do byte que será “transferido 
para frente”. 

B) Da forma como digitamos o programa, BC contém 

Q. Vamos colocar em BC o número de bytes desejado atra- 

vés das linhas 30 e 40 do programa BASIC (listagem 4): 

30 “faz” o conteúdo de C e 40, o de B. 

C)  HL é carregado com 16568, que é o endereço do 

byte que será “transferido para frente”, veja: o programa 

ASSEMBLY vai de 16514 até 16561, logo 16562 contém 

o NEW LINE de fim de linha, 16563 e 16564 contêm o 

número da linha 2, 16565 e 16566 contêm o comprimen- 

to da linha 2, 16567 contém o código de REM (234), e 

16568 contém o primeiro byte da linha 2, que atualmente 

é um NEW LINE de fim de linha; este NEW LINE será 

“transferido para frente” de tantos bytes quanto o con- 

teúdo de BC. 

D e E) Como a maioria das rotinasda ROM, MAKE ROOM 

também destrói os registros. Logo, é necessário salvá-los 

na pilha. 

F) Finalmente, a chamada da rotina. Seu endereço é 

M99E (2462), e ela expande o programa BASIC — conse- 

quentemente também desloca o arquivo de imagem e a 

área das variáveis. 

G) Recupera o valor de BC da pilha. 

H) Carrega HL com o conteúdo dos endereços 16565 E) 

16566, que contêm o comprimento da linha 2 REM ainda 

sem nenhum carácter. Este comprimento precisa ser corri- 

gido. 

1) Adiciona BC a HL para obter em HL o novo compri- 

mento da linha. 

J) Carrega 16565 e 16566 com o novo comprimento. 

K) Carrega HL com o conteúdo da variável do sistema 

NXTLIN, cujo endereço é 4029h (16425d). Ela contém 

o endereço da próxima linha de BASIC a ser executada. 

Este endereço precisa ser corrigido. 

L) Adiciona BC a HL para obter em HL o novo ende- 

reço. 

M) Carrega NXTLIN com o novo endereço. 

N) Recupera o valor de HL da pilha, ou seja, 16568. 

O) Coloca em 16568 o “carácter de construção” da li- 
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nha REM — escolhemos asterisco, mas você pode alterar 
isto de acordo com seu gosto. 

P) HL aponta para a próxima posição. 

Q) BC vai ser usado como contador do loop. Como é 
possível? Você vai entender: BC foi decrementado, mas 
DEC par de registradores não afeta a ZERO FLAG, logo 
JR NZ ou JR Z não funcionarão! Então, como verificar se 
BC atingiu zero? Através da instrução lógica (booleana) 
OR, que afeta a ZERO FLAG. Veja como proceder. 

R) Carrega o acumulador com o conteúdo de C. 

S) Executa entre A e B (ou seja, entre B e C) a opera- 
ção OR, que funciona — bit a bit — da seguinte maneira: 


10R1=1 

10RQ0=1 

00R1=1 

DORG=Q 

Ou seja, o resultado da operação lógica OR B só será 
zero quando todos os bits de A e de B forem (Q, o que indi- 
cará que o conteúdo do par de registradores BC chegou a 
zero. Bastante engenhoso, e utilíssimo, pois permite loops 
com um número de voltas maior que 256. 
T) Volta ao começo do loop enquanto BC não atingir 
Q.. 
U) Da mesma forma que nas instruções A e F, vamos 
chamar uma rotina na ROM. O endereço de CLS é 0A2ZA 
(2602). Digitar RAND USR 2602 é equivalente a digitar 
CLS. 


RAND USR 3883 = SLOW 
RAND USR 1840 = LIST 
RET é obrigatório ... 


Finalmente, uma bibliografia. Citamos aqui todos os 
artigos brasileiros que lemos sobre o assunto. Esta citação 
para nós é motivo de orgulho: há brasileiros escrevendo 
material de qualidade sobre praticamente qualquer ramo 
da microinformática! 


ARIGA, Nancy Mitie. A linha REM. In: — Microhobby. 
Um programa ASSEMBLY de 96 bytes que realmen- 
te gera uma linha REM (e não apenas a expande, co- 
mo fizemos). 


CEZAR, Antonio Sílvio. Crie uma linha REM do tamanho 
que você deseja sem digitá-la. In: — MICROBITS, 
Ano 1l, nº 1. Já o citamos no início deste artigo. 


HENDRICK, Daniel. Um REM de infinitos bytes. In: — 
Micro Sistemas, nº 30. Um programa ASSEMBLY 
de 36 bytes que expande uma linha REM. 


SCHAEFFER, Mario. Usando linguagem de máquina, Edi- 
tora Moderna, 1984. No apêndice A deste livro há 
um programa muito semelhante ao de Nancy, citado 
anteriormente. O programa também ocupa 96 bytes. 


Esperamos ter trazido nossa contribuição ao assun- 
to, e colaborado para esclarecer o leitor. 


a RAR NI NNE SS SAS 


Primeiro foi o BASIC BÁSICO 
Depois BASIC PARA MICROS 


Agora, especialmente 
para Os 
“leitores de 
-MICROBITS; 


e Abordagem simples e objetiva. 


e Temas apresentados em ordem crescente de 
dificuldade. 


e Numerosos exemplos, dicas e problemas. 


e Seção “Desafio”. Ao final dos Capítulos um 
programa sempre um pouco mais complexo 
que o nível do capítulo a que pertence. 


Apêndices úteis trazendo resumo de todas as 
funções e comandos dos micros da Linha Sin- 
clair; roteiro para entender e contornar erros 
de sintaxe; sugestão de folha de codificação 
que facilita a elaboração de programas, o uso 
da letra e a exposição dos resultados; uma ex- 
plicação dos principais termos e nomes téc- 
nicos existentes na área e de uso corrente nas 
revistas especializadas. 


(O MAIS UM LANÇAMENTO DA EDITORA CAMPUS LTDA. 
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Ms ttre Arre rr AAA ARA 4470 T= 
pEESPUAS sas 2) SIE : 1506 IP B$II,2l=0m THEN LET Del 
+ 
4505 IF Egil,Zi=""" OR B$il,Z1=" 
THEN LET D=D+41 
4510 IF R=1 THEN IF N$>0 THEN IF 
RS(N.Z)=0 0" OR ASCN, Z)=""" THEN 
ks FF HI 
i en 4512 IF R=1 THEN IF Nc<>0 THEN IF 
E Bim Rea AS(N.Z) ="B THEN LET F=F+4E 
Do nes 4515 IF R=Q THEN IF N<c:D THEN IF 
2 DIM ES(6, Modo pio CSiN,Z)="*" OR CS(N,Zi=""" THEN 
1ê IM ES té, objetivo deste jogo | LET E=E+1 
Ê (6) . 4517 IF R=Q0 THEN IF N<>0 THEN IF 
é As ts) transferir as argolas da CS(N,Z) =" THEN LET E-E+2 
4 2813] Elio 4520 NEXT Z 
«o AS(3) torre 1 (veja Figura 1) 4530 IF R=1 THEN IF Nc>0 AND DoF 
E A$(2) 3 , THEN GOTO assa 
Es Gria) para a torre 3, com um numero | «sas IF R=0 THEN IF Nc>0 AND DE 
EQ Ti . so Ê THEN GOTO 3550 
- mínimo de movimentos 4540 IF R=1 THEN LET AgiN+1:=B5i 
. i | I) 
E SE possiveis. Para isto há a torre Ps 4545 IF R=Q0 THEN LET C&iN+1i-=B$i 
X Ta Ha 1 
jê E LET E] como auxiliar. O que torna este | Loo Ler esirier 
FEL Ses cedi | : 4570 RETURN 
74 LET F=0 pro imento um pouco mais s900 FOR I=E TO 1 STED -4 
t6 LET R=0 HE a h la 5100 IF Cg&1T1c>" ' THEN GOT 
So FOR N=1 TO E difícil é que nenhuma argola E Ena 
, So PRINT ATI/-N.E; HS UN AT 7-N “ | s200 NEXT I 
15 BS ANA; AT T-N.ê4, CSN) poderá ficar sobre outra menor! | 25so coro seso 
- - . 300 IF E=1 THEN LET Pal 
o DO ERRA Sr HE LES A Figura 2 mostra as 5380 IF R=1 THEN IF ASil:=" 
te + á E E " THEN GOTO 5450 
20 ME posições das argolas num 5350 IF F=0 THEN IF ESili=" 
o cudnca saia : : ; " THEN GOTO 5450 
105 IF *=E THEN GOTA co j determinado instante do Jogo. S340 FOR N=5 TO 1 STEP -1 
210 PRINT AT &,0; "ELG | S360 IF R=1 THEN IF AgiNi (> 
120 INPUT DS qu. ar AND ASINH1I=" THEN 30 
AS GOTO 128 = í cit 
150 PRINT CHR$ (CODE D$+125/ TO s4? ii 
160 PRINT AT 9,0; "DRC EPICES | s390 76 — N 
170 INPUT Es e ; | S450 LET N=0 
e E ih ai SE ar DS <a CR l - 5470 FOR Z=1 TO E 
120 LET B=VAL D$ jZi= LET D=l 
195 TF Ez=aá THEN GOTO 17u Ea Caos IF Cg&tI af E am CEit.Z)s 
Et apa pi andado (CODE Cg+1Z3! as THEN LET An Qd o SE de CE 
-l U el po 4 “ar 1 IF 
205  RINT AT 1,0; "EEEFEEE 450 LET N=0 AS INIZI ao do OR ASN,E Da EN 
ESC SUALSUER.S 3470 FOR Z=1 TO E DR Dr 
20 IF INREV$="" THEN GOTO 210 3500 IF A$(I,2)="Mº THEN LET [= ssiz IF R=d. THEN IF Nc20 THEN IF 
2 EYS SOTO NAZI E F+; 
2i2 PRINT AT 21,0;", os IF AS(I,2)=""" OR QSiI,Z)=" 5515 IF R=0 THEN IF Nº50 THEN IF 
213 RETURN = THEN LET D=D+1 BS(N,Z)="*" OR B$IN,Zi=""" THEN 
515 PRINT AT 8,0;" “q 3510 IF R=1 THEN IF N<>0 THEN IF LET E=E+1 
e e a BSIN Z)=" 0 OR B$(N,Zi=“"” THEN SS17 IF R=B,TMEN IF Nc>0 THEN IF 
(SD: ' LET F=F+1 B$(N,Z) =" THEN LET E=E+2 
O UÉ SUDO LDONSA 3812 IF R=1 THEN IF N::0 THEN IF 5520 NEXT Z 
e ama rd co ESIN,Z)=" THEN LET F=F+ 5530 IF R=1 THEN IF Nºc:0 BND DoF 
300 LET CS=5TR$ C 3515 IF R=Q THEN IF Nc;a THEN IF THEN GOTO 3580 E 
310 FOR N=1 “To LEN D$ CS(N,Z)="*" OR C$IN,Z)="" THEN AÇO at a IF N:>50 anNG D>E 
pé d 4 am “o =E + > Ú Bo 
a E RS CS PR q Ce do THEN IF N450 THEN IF 5540 IF R=1 THEN LET AS(N+1)=C8( 
50 NEXT N CS(N,Z)="B"* THEN LET Es E+2 11 o | ne sido 
210 PRINT BT 9.0; 3520 NEXT Z 5545 IF R=0 THEN LET Es(N+1)=08/ 
E 3530 IF R=1 THEN IF N<:0 AND D>F 
a THEN GOTO 3580 o 55S0 LET Cgili=" 
5535 IF R=Q0 THEN IF N::0 END D>E 5570 RETURN 


THEN GOTO 3580 









aiii ain AND INKEY$<> So 40 IF R=1 THEN LET EsiN+1/=A$: 
La TE ENGEVeSCNO THEN SEUS 3545 IF R=0 THEN LET CSiNs1/=AS! 
e a 355 SQ LET Agil)= 
SO an T 3570 RETURN. 
OU E =E O 13 - 4 fdd o. pa 
LDO RE LIS ae er, THEN cor 2590 PRINT AT 10,0: "nEENESSasSIs 
O 3500 Mui CEINICIRA o 
200 NEXT =" opção e 
Ea DDT - 3. = | I=6 TO à STEP -i 
3260 CRINT AT 10.0: Es E Lioo IF B$:11c>' THEN GOT 
: SE O 4500 
3250 GOSUB =Z05 a 
Seas e dE É 4200 NEXT I 
s270 PRINT AT 10,0; 4550 GOTU F2so 
3280 RETURN 4300 IF E=1 THEN LET R=1 
3300 IF BE=2 THEN LET R=1 0. 4320 IF R=i THEN IF Asil:= 
3320 IF R=1 THEN IF Egili= " THEN GOTO 4450 o 
" THEN GOTO 5450 | 4520 IF Ref THEN IF Cóili=" 
35330 IF R=Q THEN IF C$(11=' “" THEN GOTO 4450 ã 
“ THEN GOTO 3450 4340 FOR N=5 TO 1 STEP -1 pesa Ea 
3360 IF E= 1 THEN IF ES Ni ER " AND AgiN+41)=" THEN GO A... 
“ AND E$(N+41)=" THEH GO E ago qn di ' Nº 
TO 3470 SS =U HEN le | RE im E 
3370 IF P=0 THEN IF C$SiNSc>"o “ AND C$(N+41) =" THEN CO SARA TORRES 
"“ AND Cg&IN+41)=" “ THEN GU TO ás co E 
TO 3470 4390 NEXT N > 
3390 NEXT N 4450 LET N=Q Figura 2 
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programa, que é auto-explicativo, calcula o preço 
de custo, preço de venda e total de custo e de ven- 
da de um produto. 

Por exemplo, suponha que o produto em foco con- 
siste de vários itens — parafuso, porca, eixo etc. O preço 
de cada item é digitado junto com a descrição dele e con- 
vertido imediatamente para um percentual de ORTNSs. To- 
dos os dados relativos a este produto podem ser arquiva- 
dos em fita para futura modificação. Quando carregado 
novamente, simplesmente modifique o valor da ORTN 
para obter preços atualizados. 

Um exemplo do seu uso é o seguinte: 
| Suponha que o produto é fabricado utilizando-se os 
seguintes materiais: 





Item Preço 
PORCAS Cr$ 100 
PARAFUSOS Cr$ 50 
CHAPA DE METAL Cr$ 2500 
GABINETE Cr$ 4000 


ea ORTN base é Cr$ 4000. 
Também queremos uma margem de lucro de 60%. 
Ao rodar o programa (pelo comando direto RUN ou 
quando carregado da fita) veremos o ''menu”” abaixo na 
tela: 
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Se desejarmos recomeçar com um arquivo novo, digi- 
tamos “Q0'' e NEW LINE (ou ENTER). Depois de digitar o 
número de itens, temos que entrar com uma descrição de 
cada item e seu preço, baseado no valor da ORTN armaze- 
nada na memória. Obviamente seria necessário modificar 
a ORTN para o valor atual antes de começarmos a entrar 
com estes dados, caso não coincida com aquele da memória. 

Ao completar a entrada dos dados, podemos modifi- 
car a margem de lucro, digitando “4” em resposta ao 
“menu”. Teremos na tela o seguinte: 





Escolhendo 2 no “menu””, aparecerá uma listagem 
dos itens, com seus preços atuais de custo e venda: 
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e digitando NEWLINE (ENTER) os preços totais de custo 


e venda 
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o autódromo do Rio, em Jacarepaguá, cola- 
borando com a equipe de cronometragem 
oficial e junto a sofisticados equipamentos 
da Longines, Olivetti e outros, estava o pequeno 
TK, fazendo o controle da corrida. Dando a qual- 
quer momento a posição do carro “X” ou listan- 
do todos, mostrando suas posições. Para isto, bas- 
tava que lhe informassem a posição relativa de ca- 
da carro em cada volta. 


Este programa, acima mencionado, criei em meu 
TK-82C, com teclado da SPEED, chave inversora de vídeo 
e expansão de 16K. Denominei-o “CONTROLE DE COR- 
RIDAS”, pois é para isto que ele se presta. 

Grande parte dele é escrita em BASIC e uma peque- 
na, mas a mais importante, em ASSEMBLER. Cabe ressal- 
tar que esta rotina só foi incluída em virtude de que a 
mesma, escrita em BASIC, levava 14,5 minutos para rodar, 
tornando o programa impraticável. Em ASSEMBLER pas- 
sou a levar 3 segundos para 25 veículos. 


O programa consiste de: 


1 — Inicialmente é perguntado o tipo de veículo que par- 
ticipará da corrida (carro, moto, lancha, bicicleta 
etc.) e, em seguida, a quantidade de veículos. 


2 — A seguir, o programa formata uma tela para entrada 
de dados (número dos veículos) e a guarda num 
ponto da memória para não ter que reformatá-la to- 
da vez que se optar por “entrada de dados”. 


3 — É exibido, então, um “menu” com as seguintes 
opções: 
E — entrar número dos veículos 

lista todos os veículos 

lista o veículo “X” 

inicializa a matriz de dados 

— salva o programa (e dados) 

No “menu”, é informado também o número da vol- 

ta em que se encontra a corrida (Figura 1). 


O Vim 
| 


4 — A opção “E”, exibe uma tela para a entrada dos nú- 
meros dos veículos de acordo com suas posições na- 
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am qu mm = 
TODOS 05 


O qm, É au pa mp 
LEI IDR MEBTEIS 


quela volta. Quem está em 1º lugar, em 2º, em 3º, 
CLC. as 


Na largada (volta zero) devem ser informados todos 
os veículos participantes. Nas demais, isto não é ne- 
cessário, pois alguns veículos, por diversas razões, 
podem ter abandonado a corrida. 

Para o TK saber que aquele foi o último veículo que 
passou, é previsto o pressionamento da tecla “F” 
(fim). 

Para eventuais correções de algum número digitado 
erradamente, pressionando-se “C” o cursor retorna, 
apagando o número errado, e fica esperando a nova 
informação. 

Após todos os números terem sido digitados, ainda 
há a opção para se desprezar tudo que foi digitado. 
É feita a pergunta: “Tudo correto? (S/N)”. 

Tanto para as respostas das perguntas como para a 
entrada de dados (número dos veículos), não é ne- 
cessário pressionar “new line” (Figura 2). 


A resposta sendo “'S” (sim), é processada então a ro- 
tina principal em ASSEMBLER que aloca os vefcu- 





tuação (posição e número de voltas). Aqui também 
== E É é mostrado o número da volta em que se encontra. 
== Es É Com éstas informações exibidas, é mostrado tam- 

= se — bém que qualquer tecla retorna ao ''menu”” (Figu- 
ra 4). 


ti 
Eds 


4 


Eri 


fe 


|] 


JE 


“VOLTA NUMERO Ec] 
QuaL, S NUMERO 






= 
Tm, 
-s 
E 
== 
= 
= 
= 





t | | 
Sa tio OD Le Como po cg 


pt EO 
A. 


ut 


jo 
a 
s 





los em suas posições relativas e efetivas, consideran- 
do a “volta corrente” e a posição da ''volta ante- 
rior”. O processamento volta ao ''menu””, mostran- 
do o número da próxima volta. 





6 — Na opção “'L”, tem-se a listagem de todos os veícu- 
los — quem está em 1º lugar (o número do veículo) 8 — A opção “C” deve ser solicitada logo após informar 
e seu número de voltas realizadas; 2º lugar; 3º lugar o tipo e o número de veículos, isto é, logo no início. 
etc. até o último participante. O que ela faz é zerar toda a área de dados e o núme- 
É um pouco lenta esta rotina, pois está em BASIC. ro de voltas, fazendo exibir, no lugar do número de 
Em princípio, esta opção só deve ser solicitada ao fi- voltas, a palavra “largada” 
nal da corrida. Pressionando-se qualquer tecla (me- 9 — Como não podia deixar de existir, pressionando-se 
nos break) retorna-se ao ““menu” (Figura 3). “S'" é dada a orientação para ligar o gravador e pres- 
7 — Para se ter uma resposta mais rápida, a opção é “P” — sionar qualquer tecla. Então, programa e dados da- 
posição do veículo “'X”. Esta opção, logicamente, quele momento são gravados no cassete. O programa 
pede o número do veículo que se deseja saber a si- | retorna ao “menu”! 


Notas sobre o programa 


EE tir) E e do == 
CRRRO VOLTA for = SESES Para começar, digite uma linha “1 REM...” com, no 
a E mínimo, 389 pontos — assim: 
+ REM seio (389 pontos). 


Pode ser utilizado o programa “Crie uma linha 
REM” apresentado em MICROBITS, Ano Il, nº 1, para 
facilitar esta tarefa. 

Em seguida, digite o programa “carrega”. Rode o 
programinha (“RUN”) e carregue os códigos hexadecimais 
verificando, cuidadosamente, se não há nenhum erro. Apa- 
gue as linhas 10 a 70) (não apague a Jinha 1!) e, a seguir, 
entre com o restante do programa a partir da linha 1000. 

Antes de rodar o programa completo, salve-o em 
fita cassete. Isto evita a perda total do programa, caso ain- 
da haja algum erro na rotina em linguagem de máquina. 


Co O UG 
Cd bes Dea os 3 PU 


m cd Pt z a sz 3 5 sz - z > z z 5 E s 2 7 3 E E / & 
a z E 3: E = : z a z - 2 = 2 2 Í z z z z 8. 8 o z = : z E 5 & 
z E z => 25 z = z z z z z z z - z s is - = 2 = - : - 3 SS Fe 
3 7 2 3 z z x 5 : - * - z z 2 z 2 + > F = 2 & & - = 5 7 & sz 5 


< a Es z - z sz - J z z z : = s J : - £ z z z = z = z z z z z s - 
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EA Ug="5" THEN GUTO 5000 
IF uUg="PO THEN GUTO 4do 
IF Ug=. ç THEt GOTO Ego 
TE Ug="'L" THEN GOTO =200 
IF Ug::"EU THEN GOTO 15300 


POKE lE418,F 

RAND USR 16774 

FOR C=E TO Er STEP & 
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LET N=N+1 
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SL OL) 

IF U=0 THEN FRItT AT O.IS: 






=150 IF PNREV$="" THEN GOTO Zilda 


NEXT X 
LET Ng (NI =C5 
NEXT L 
NEXT E 
SL OU 
PRINT A 





2140 IF INKEVS="N THEN GOTO 102 


PRO 


NEXT & 

LET EJ=UAL x& 
POKE (E+l!,8 
NEXT É 
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TREM LET MN 


T AT 0,18; CVOLTRS O 


1=0 THEN PRINT aT q 


No! 
T “POSICAO C:FS;C um 


OTO SZE) 
5220 PRINT 
LTS FEER 
codO NEXT w 


USR 15737 
e 


“QUALSUEE TEC 
=; Cuiaisimadis Ss 


TREN GOTO São 
540 FAST 
s60 CLS ? 
5380 PRINT TRE 10; "UOLTA=";U-l. 
S400 IF U=0 THEN PRINT AT Q,19;" 
LARGADA" 
FE PRINT “POSICAO C:Fg;U UOLTA 
440 IF Y=F+1 THEN GOTO ligo 
460 GUTO 5220 


“DUAL O NUMERO 


5000 FAST 

6020 RAND USR 16725 

6040 LET U=0 

5060 GOTO lSco 

5000 CLS 

5020 PRINT BT 5,5. CLIGUE O GRAVA 

DORC:;AT 3,5; "PRESSIONE GUuaLguUER 

TECLAS 

5040 RAND USR 18737 

CODO SL: 

50580 IF INKEvg&="" THEN GOTO zoa 

3090 SAUE “CONTROLE DE CORRICR 

5995 PUKE 18415,2 

33995 RUN 

PROGRAMA PRINCIPAL 

ENDERECO HEXADECIMAIS 
L6725 d6 D2 21 32 4d 
16750 sb OU 25 18 FE 
16755 cs 0d da 2R DLC 
16740 2: ds o BE 
16745 el 7E FE 7m as 
165750 S CO SO 77 es 
16755 VD 2d F4 Ilê Fê 
16720 CS 2A OL 42 II 
16765 16 79 O 19 BS 
16770 ED EU ls va ai 
16775 16 ?9 ED SB BE 
16750 So Oi ls ds ED 
16755 Bo Ca ou DD azl 
16790 Se 4) 18 dO1 FD 
16755 2l  O2 “à DE du 
165300 A do co ql 
16505 PE 22 238 4? SF 
1€5S10 BR 22 DdD2 15 98 
16515 FD 25 FD zs FD 
16520 es 15 EB DE 7 
16825 do FL EE da zs 
216550 OS  sS0 EE va TS 
16555 Ol SF is ES DD 
16540 E DB PD Ed 
16545 es 12 FE OU JZs 
16550 DC FD ZE Bi FE 
165855 0 25 * DD BE 
16500 01 35 E2 15 UE 
16565 DD 7E de FD BE 
16570 de 35 UVo cvs FÊ 
16575 eb 23 TI is Di 
16550 9 CO OL DD ag? 
16555 ve YR Cod Ol FÊ 
165950 CE 23 qo Db 2s 
16595 DD 23 LD 23 3? 
16500 15 94 US 


CÓDIGOS HEXADECIMAIS 


TO 16902 
ODE UgG+CODE 


o 


UgiZ) 


POKE A.U 
SCROLL 
PRINT Aj"="; 
NEXT R 

STOP 


PROGRAMA CARREGA 


HM MANOEL SILVA RODRIGUES 


RE: 
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PAO0O NA PROGRAMAÇÃO 


















CALGULE À AREA DE | 
UMAGURVAPELO 
METODO DOS TRAPEZIOS 


ste programa, “INTEGRAL”, calcula a área de 

uma curva pelo método dos trapézios. O programa 

pede a função, os limites superior e inferior do in- 
tervalo e o incremento, fornecendo a área sob a curva. Do 
incremento escolhido dependem a precisão do resultado e 
o tempo de processamento: 


Exemplo: 


A integral definida da função seno X no intervalo de 
Oarmé: 


f seno x dx = — [cosseno x]” = — (cos 7 — cos 0) =2 
No TK: 









2 seg 
16 seg 
2 min 47 seg À 


1,9953899 
1,9999741 
1,9999991 






Obs.: O programa aceita funções em x. 


Exemplo do uso do programa: 
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este nosso segundo encontro, vamos estudar o 
arquivo de imagem, e como acessá-lo em linguagem 
de máquina. Isto aumentará muito a nossa 
flexibilidade. 


Podemos encarar a tela como um retângulo de 24 
(linhas) x 32 (colunas) = 768 posições. No entanto, os 
micros de lógica Sinclair arquivam a tela de maneira 
completamente diferente. 





O arquivo de tela é sequencial, iniciando-se por um 
carácter 118 (NEW LINE), seguido de 32 bytes para a 

12 linha, um carácter 118 para indicar o fim da 1º linha, 
32 bytes para a 22 linha, um carácter 118, 32 bytes para a 
32 linha ..., e assim por diante até a 242 linha (as duas 
tinhas de edição pertencem ao arquivo de imagem). 


O endereço inicial deste arquivo é variável, sendo 
guardado pela variável do sistema D.FILE (display file = 
arquivo de imagem), cujos endereços são 16396 e 16397 
(400C e 400D). Logo, este endereço pode ser obtido 
através do comando BASIC 


PRINT PEEK 16396+ 256*PEEK 16397 


Sabemos que o conteúdo deste endereço é 118, um NEW 
LINE. Assim, se você digitar 


PRINT PEEK (PEEK 16396+256*PEEK 16397) 
a resposta será sempre 118. 


O esquema da figura abaixo ajudará você a compreender a 
tela. 
































































































































































































































O número na quadr ícula deve ser somado ao endereço 
indicado por D.FILE para obter-se o endereço da posição 
correspondente da tela. Observe bem o esquema, e 
entenda as explicações abaixo. 


a) O conteúdo dos endereços relativos às quadrículas 
hachuradas é sempre 118, e não pode ser alterado, ou O 
micro se perderá, sem saber construir a tela. Em outras 
palavras: CRASH. 


Rode este programinha BASIC: 


10 LET DF=PEEK 16396+256*PEEK 16397 
20 FOR L=G0TO 24 


30 PRINT PEEK (DE+33*L), 
40 NEXTL 


Sua saída é: 25 números 118! Ou seja, o NEW LINE 
inicial do arquivo e mais os 24 NEW LINEs terminais de o 
cada linha. . 


Um parêntese importante. Se você tem apenas 2K de 
RAM (TK82 ou 83 sem expansão de memória), este 
programa NÃO FUNCIONOU! O motivo é o seguinte: 
quando o micro tem menos de 3,25K de RAM, ao ser 
ligado ele não expande a memória da região da tela, 
deixando-a totalmente comprimida para economizar 
memória. | 


Como contornar o problema? Enganando o micro! Vamos 
alterar o valor de RAMTOP, para fazê-lo pensar” que | 
tem mais do que 4K. Acrescente (se você está com 2K de 
RAM apenas) a linha 


5 POKE 16389,85 
e rode novamente o programa. 


b) É possível imprimir na tela, fazendo POKE nas 
posições permitidas. Isto é mais rápido do que usar | 
PRINT, porque o sistema operacional do micro não perde 
tempo verificando a correção das coordenadas. Vamos aos 
primeiros exemplos e exercícios. | 


- EXEMPLO 1: Colocar um asterisco na primeira posição 


da tela. O BASIC normal 
10 PRINT AT 0,0;''*" 
pode ser substituído, usando D.FILE, por 


10 LET DF=PEEK 16396+256*PEEK 16397 
29 POKE DF+ as 


Em linguagem de máquina, teríamos 


PROGRAMA 01 ; 


À REM 7 caracteres quaisquer 


LD HL,(16396) 2A (OC 40 fazdeHL ponteiro — 

| - parao arquivo da 

“tela 
salta o NEW LINE 
inicialdo arquivo, 
apontando para a o 
primeira posição. “de 
impressão” 
coloca um | * nesta E 
posição a 
volta ao BASIC. 


INC HL 23 


LD (HL),23 dO 17 


RET Cc9 


Para rodar o programa, RAND USR 16514. 


| Qual comando POKE xxxxx,xxx o ser | 


digitado (modo direto) para que RAND USR testa 
coloque um E natela? 


EXEMPLO 2: Colocar um asterisco em ago 16. 
Em BASIC normal ter íamos 
10 PRINT AT 10,15: *' 
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Naturalmente não poderemos fazer INC HL, INC HL, 
INC HL, ..., até alcançarmos a posição 10,15. É 
necessário “calcular o número que deve ser somado a DF. 
Chamando de LalinhaedeCa Fa temos. 


39 L+CHI 
Em nosso caso, 
33*10+15+1=346 
Rode o programa 


10 LET DF=PEEK 16396 +256*PEEK 1 16397 ' 
20 PRINT AT 10,15; RB * 
30 POKE DF+ 346,23 € 


Após o RUN, só há o asterisco na tela, e a indicação 0/30. 
Em linguagem de máquina, seria assim: 


PROGRAMASZ | 


O REM 10 caracteres quaisquer 
LD HLAD.FILE) 2A CC 49 


LD BC,346 01 5A 01 
ADDHLEC. do 
LDINLIZI De HW 
RET cg 


Rode o seguinte programa BASIC: 
O REM aqui está o programa 02 


10 PRINT AT 10,15; " 
20 RAND USR 16514 | 


Que ocorreu? 


Fazendo três comandos diretos POKE 


xxxxx,xxx, altere o programa (2 para que coloque um E | 


no final da última linha de edição, ou seja, em 23,31. Isto 
poderia ser feito diretamente, através de PRINT AT 
2388" om Como e este pepinos nous ser r contornado 
em BASIC? | | 


EXEMPLO 3: Fazer uma diagonal na tela, desde 0,0 até 
21,21. O carácter de construção de Graphics dad Y. 


Em BASIC normal, seria: 


10 FOR F=0TO21 
20 PRINT TAB F;” 
30 NEXT F 


Usando o arquivo de tela, a solução mais simples seria 





10 LET DE=PEEK 163964256 *PEEK 16397 E 


20 FOR F=0 TO 21 
3% LETS=3*F 
40 POKE DF +1+5,134 
50 NEXT F 
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Observe atentamente o esquema da tela, e ei de 


ter entendido o 34 da linha 30. 


* Convertendo para linguagem de máquina, teremos o 


PROGRAMA 03 


O REM 15 caracteres quaisquer 
LD HLÍ(D.FILE) 2A MC 44 


INC HL 23 
LD DE,34 11 2 WMM 
LD B,22 06 16 B = contador 


€ para 22 linhas 
POKE LD (HL),134 so 86 | € 
ADD HL,DE 19 | 
DJNZ POKE 10 FB volta ao rótulo 
POKE, 
fazendo o loop 


RET co 


Percebeu como o rótulo POKE auxilia a compreender o o 
programa? É 


a) Digite, modo direto, POKE 16524,23. Rode (RAND 
USR 16514) e... que ocorre? Por quê? 

b) Digite POKE 16519,33 e rode. Que ocorre? Por quê? 
c) Digite POKE 16519,1 e rode. Que ocorre? Por quê? 


“d) Digite POKE 16519,34 e depois POKE 16522,24. 


Rode. Que ocorre? Por quê? 
e) Que ocorreria se você digitasse POKE 16519,32 e 
rodasse o programa? Por quê? 


Não prossiga sem ter compreendido todas as ocorrências, 
especialmente as das letras d e e. É importante não saltar 
etapas se você quer realmente aprender. 


Vamos agora ao programa mais importante desta nossa. 
segunda “aula”: encher a tela. Observe atentamente a 
estrutura do programa — é a mais curta neo e será 
usada em inúmeros dead | 


PROGRAMA 04 


0 REM 17 caracteres quaisquer 


LDHL(D.FILE)2A OC 40 


"B=contador 


OR dO 6. 
o o | | para 22 linhas 
- LINHA INCHL 1 “. salta NEW 
Ra o | LINE 
IDC O DE M  C-comidor 


* para32colunas 


POKE LDIHLI36 36 88) Quanto à velocidade, não há ganho. 


ca Pa AL El ca mu Rea pone RR ta 
10) Da JR NZPOkE 2 FA: * completa. a va sm u dica | ç 


li “DINZ LINH A o a enche Rs O programa ocupa 9 bytes. 
RET c9 16514 3E 1C LD A,28 
RAND USR 16514 enche a tela de cinza com incrível PRINT 16516 D7 RST 10h 
velocidade. — 16517 3€ INC A 
| . - 16518 FE 2C CP 44 
| € | E | 16520 20 FA | JRNZPRINT 


| | Ce ig do RET 
Naturalmente o programa 04 pode ser | à | 


escrito com os contadores invertidos: C para linhas e B 
para colunas. Faça isto — também leva 17 bytes. O programa ocupa 9 bytes. 


16514 3E 3F LD A,63 


| | Ee PRINT 16516 D7 RST 10h 
| sas 16517 3D DEC A 
Acrescentando ao seu programa acima CALL 16518 FE 25  CP37 


PRINT AT 0,0 (CALL G8F5, lembra da coluna passada?) o so FA iba Sade 
no lugar certo e imprimindo espaços você terá um CLS 


muito mais rápido que o da máquina, com apenas 20 | 
bytes. Teste-o com o seguinte programa BASIC. | | Ex. 04 | 


O REM aqui está o seu programa so Dino ocupa 15 bytes. nu 

10 FORH=0TO NO aci una DE LOBC. (B=11,C-=3) 
"| 20 PRINTTAB E*2.3; "MICROBITS”. : ae: et 16517 CD F5 08 CALLPRINTAT 

30 PRINT TAB F*2.3;" e" ui o MORONDE BE LDA SO! 

49 NEXTE CCC êRINT 10522 D7/ RST oh 
50 CLS Ro dae CO O aGBZD dO CG DECA 

60 PRINTTELA ie Pa — 16524 FE AS CP 165 

Observe o tempo levado pelo CLS. Agora terras é intia o. 16526 20 FA JR NZ,PRINT 


50 por RAND USR 16514 e aprecie à incrível rópeç 16528 C9 E CRELO 


de velocidade! | | nd q 
Até a próxima! | | o | Ex. 05 


O programa ocupa 22 bytes. 


16514 01 00 09 LDBC,...(B-=9,C=0) 
16517 CD F5 08  CALLPRINTAT 





16520 3E 00 LD A,0 
PRINT1 16522 D7 RST 10h 
16BZ3 SC + INC A 
16524 FE 40 CP 64 
| | | 16526 20 FA —  JRNZPRINTI 
O programa ocupa 22 bytes. a 16528 87 ADD A,A 
16514 0» 00 dO LDBCO - 7 | PRINTZ 16529 D7 | | RST 10h 
16517 CD F5 08 CALL 2293 (PRINT AT) esa cota 
16520 3E 00 LD AO 16531 FE co | CP 192. 
16522 06 BO | LD B, 176 16533 20 FA JR NZ,PRINT2 
a É 16535 C9 RET 
PRINT 16524 D7 RST 10h 
16525 D7 “RST1Qh | 7 | | 
16526 D7 RST Oh | Não consigo escapar do espírito da nova seção 
16527 D7 RST 10h ao DESAFIO... Lá vai: você saberia reduzir este programa 
16528 10 FA DJNZ PRINT | para apenas 20 bytes, mantendo o mesmo efeito? 
16530 GE 00 « OCH Sugestão: use INC A e RST 10h uma única vez cada um. | 
16932 CD FS 08 CALL 2293 (PRINT di PENSE! Solução no próximo nº, quando publicaremos os 
16535 C9 RETO - nomes dos acertadores. 


e 
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“TRON” (um jovem programador foi 


ste jogo para micros compatíveis com Sinclair com 
apenas 2 Kbytes de memória, foi baseado nas ce- 


nas do filme 
engolido” pelo computador e passou a viver entre seus 


circuitos, onde ficou conhecido como “TRON” e vive 


t 





14 


ão 


Participe de uma corrida no interior 
do seu micro. 
Mas fique de olho no TRON 
e muita atenção, pois qualquer distraç 
poderá ser fatal! 





como por exemplo a disputa na qual 


+ 


aventuras incríveis, 


se baseia este programa). 


delimitada a área onde V. disputará 


& 
uma corrida TRON (que vive dentro do seu micro). Após 


Inicialmente 


dada a largada, V. deve evitar esbarrar nos limites da área 


ou ultrapassar um caminho já percorrido, que vai sendo 


marcado na tela. 





Cada um possui 10 chances para errar. 





Preparação 


ão no início 


“a 


Digite a listagem 1 e então a listagem 2. Observe que 


a listagem só possui comandos sem numeraç 


da linha. 


ia nho doi pda pd - 


Prepare seu gravador para gravar o programa (conec- 
te os cabos, ajuste o volume etc.) e digite < GOTO 500 > 


ao mesmo tempo que V. ativa o gravador. 











ate "pe a ee a e 6 a ] Rea ( O Mo Fo Muy, 


O Jogo 


Quando a gravação terminar aparecerá a mensagem 
“seu nome?”, Digite seu nome (máximo de 10 letras) e em 
poucos segundos aparecerá a área do “duelo” na tela do 
micro. V. é o “O” em fundo inverso e TRON o “*” em 
fundo inverso. 

Se ocorrer algum erro, corrija-o e use < GOTO 10 > 
(nunca use < RUN >!) e grave-o novamente como descri- 
to. Depois, para executá-lo novamente, basta dar < LOAD 
“TRON “> e o programa logo inicia solicitando seu nome 
(não é necessário dar < RUN >!). 

O Quadro 1 mostra as teclas que devem ser usadas 
para mudar sua direção. 





Quadro 1 


Por exemplo, se V. estiver indo da esquerda para a 
direita (sentido inicial) e quiser subir, aperte a letra “1” 
até observar que V. mudou de direção (cuidado para não 
apertar uma tecla diferente de “1”, “J”, “K” ou “M”!). 

Evite esbarrar nos cantos ou nos caminhos que vão 
sendo marcados (quadrado em fundo inverso). 

No alto da tela do micro sempre aparecem os pontos 
de cada um. Cada vez que um esbarra num quadrado já 
ocupado, este quadrado pisca indicando o local do ““cho- 
que” e é marcado um ponto a mais para o adversário. Ga- 
nha quem primeiro fizer 10 pontos. 

No final do jogo, o micro pára esperando que uma 
tecla qualquer seja pressionada para dar início a um novo 
jogo, solicitando o nome do adversário do “TRON”. 


Macetes 


Como os pontos são contados quando se esbarra no 
caminho, V. pode então atravessar o caminho do “TRON” 


ou até mesmo andar junto dele. Isto é útil quando V. esti- 


ver sendo encurralado pelo “TRON”. 
Procure encurralar o “TRON”, não deixando alter- 
nativas para a sua fuga nos labirintos que vão se formando. 
Finalmente, 2 conselhos: Fique de olho no “TRON” 
que pode mudar de direção repentinamente e muita aten- 
ção, pois qualquer distração poderá ser fatal! 


10 
20 
30 
40 
45 
5 
6) 
70 


LET E=Q 

LET F=0 

CLS 

PRINT “SEU NOME?” 
INPUT N$ 

FAST 

CLS 

FOR I=0 TO 31 


80 


:CHR$ X 


90 


HR$ X;AT 1,31;CHR$ X 


100 
200 
6397 
210 
220 
230 
240 
250 
“Es 
290 
300 
310 
E + 
) 
320 
330 
340 
350) 
400 


<>X THEN GOTO 460 


410 
420 
425 


670 


700 


DIM 
LEI 
LET 


LET 
LET 


PRINT AT 1,I;CHR$ x;AT 21,1 
IF I<22 THEN PRINT AT I,0;C 


NEXT 
LET M=PEEK 16396+ 256*PEEK 1 


LET A=M+335 

LET B=M+356 

LET C=3 

LET D=2 

PRINT AT 0,8: TRON “;F;” — 

“N$ 

SLOW 

LET AB=INKEY$ 

IFA$<>""” THEN LET C=(A$>=" 
(AS>='"J)+(A$g>D="K)+(A$>="M” 


POKE A,X 

LET A=A+A( C) 

IF PEEK A=K THEN GOTO 630 
POKE A,180 

IF RND >.1 AND PEEK (B+A(D)) 


LET R=INT (RND*17) 
FOR I=RTO R+3 

LET D=I-INT (1/4)*4+1 
IF PEEK (B+A(D)) <> X THEN GOTO 460 
NEXTI 

GOTO 600 

POKE B,X 

LET B=B+A(D) 

POKE B,151 

GOTO 300 

SAVE “TRON” 

GOTO 10 


LET F=F+1 

FOT |=1 TO 50 

POKE A,0 

POKE A,8 

NEXT 

IFE<> 10 ANDF<> 10 THEN GOTO 50 
IF INKEY$="" THEN GOTO 690 

GOTO 10 


A(4) 

AM) =—33 
A(2) =—1 
A(3) =1 
A(4) = 33 
X = 128 
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APROXIMAÇÃO DE 


= AUMBERO —— 


PN 
H 
a 


RA 





ste programa de integração numérica utilizando a 
aproximação de Romberg foi baseado no livro 
"mm PROCESSAMENTO DE DADOS, por J.A.R. 
irem e W.M. Stravinsky — publicado por LTC e EDUSP. 
Uma função pode ser integrada por esse método. 


R(h) 


D 0 
Fal de é Ia (h/2) IR (h) 
Rth/4)  dR(h/2) 0 1E(h) 





Onde I& (h) = Iy(h) é a integral calculada pelo método 
dos trapézios (e onde h = (b — a)/n; n sendo o número 
de intervalos) e 


4ir(h/2) - ITth) 3 


É (h E — — Cah? + e. 
4 


- 3 


onde a integral de Romberg, de ordem 1, tem erro pro- 
porcional a hº; a de ordem 2 tem erro proporcional a hº. 
A fórmula geral é: 


arg i(h/28 +) — 
1 


IR! (h/2*) 
IR (h/28) = i 


E para um cálculo correto deve-se efetuar os cálculos fila 
por fila como na figura 1. 
As variáveis usadas no programa são: 


F$ — armazena a função f(x) em forma de “string” 

xú — limite inferior da integral 

XM — limite superior da integral 

E — número de intervalos 

N — ordem de integração 

R(N, N) — matriz onde se coloca os resultados interme- 
diários para os cálculos 


Desempenho (em FAST) 


função usada: |" /x dx = 0,6666666 (valor exato) 
o 





E=2 valor tempo) E=10 valor tempo 
N=1 0,6565269  3seg|N=1 0,665657 3 seg 
N=2 0,6635178 4seg|N=2 0,66638 11 seg 
N=3 0,665685 7 seg | N=3 0,6666569  18seg 
N=4 0,666287  10seg| N=4 0,6666327 45 seg 
N=5 0,66653 22 seg | N=b (0,6666547 1:30 


OBS: Pode-se economizar memória se em vez de dimen- 
sionar uma matriz (triangular inferior), colocar em uma 
forma determinada, num vetor. Também o tempo de cál- 
culo pode ser reduzido se testar cada cálculo obtido com 
o anterior e parar se estiver dentro da precisão requerida. 


Por outro lado, esse programa é pequeno, rápido e 
de grande precisão, podendo ser usado como sub-rotina 
de outros programas. A listagem a seguir mostra um pro- 
grama desprovido de qualquer auto -explicação. 





= = adcia! Seca 
“CENTRE COM à FUMNCRO C 


PRINT 
OMO WP=EIXOS: 





q PRINT CENTRE CUM O LT. IHF 
PRIOR” 
lo INPUT 8 
12 PRINT LO = UC; AS 
lá PRINT CENTRE COM LIM SUPER 
LORO 
25 INPUT ximM 
27 PRIN? CHM = 0; HM 
15 PRINT “ENTRE COtá O ME DE IN 
TERUAI OS gi 
EU INPUT E 
cs PRIMNTO CEI = C:E 
cã PRINT CENTRE Com ORDEM INTE 
CRRCRO 
DE TIHPUT tu 
[O PRINTOON = há 
SO LET o N=N+1 
55 DIM RiH.N 
jo CLS 
Só FRIT 
is roORM isa TEA 
EO GUSitoe =>2 
fm: E, Riz,ii=20onNa 
bp LEI EsEsas 
ES NEX: + 
e LET Mai 
TE POR d=2 TON 
O FOR Zz TO nN-E 
DE LET Ril+L,diziderid-lizRil- 
Lod-L:-RiloSd-2i! qretd-l: E 
DO HEXT o I 
SE LET MNeMail 
ido NEXT 
LE PRINTOAT IB. Goo dUaLOR DA IT 
NTEGRAL FRC.aAT IJ2,.5:RiMo.nN 
Zi SToO- 
iso REM Dir INTOESA,. TRAPEJOIDAL 
DO LET o AR=iEH-XSI CE 
OS LET JSEMA-O 
-ig FOR S=1 TO c-i 
=15 LET x==EZd+rdsh 
22 LET 2oCMA-=SOMasUAL FS 
-2E HENTOod 
=20 LET R=a8 
cos LET Yis=tmL ÉS 
320 LET ox=2M 
=-41E LET vE=taL F& 
Es0 LEI SUMA: .DUMEB+A vista! 
=DE RETiicN 


RR O ED 
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e A IBM americana acaba de produzir 
uma máquina que “reconhece” senten- 
ças faladas em inglês. Segundo a IBM, 
o aparelho dispõe de um dicionário de 
5000 palavras, e, embora necessite que 
o locutor deixe um breve espaço en- 
tre cada palavra, reconhece aproxima- 
damente 95% delas. Distingue até mes- 
mo homônimos (palavras que têm o 
mesmo som) como 'to”, 'too' e “two”, 
dependendo do contexto em que estão 
inseridos. 


e A firma inglesa ICL (International 
Computers Limited) lançou recente- 
mente o seu micro OPD (“One Per 
Desk” ou “Um em cada mesa”). É um 
desenvolvimento baseado no Sinclair 
OL, com especificações bastante im- 
pressionantes. Para quem nunca ouviu 
falar do QL, este micro tem as seguin- 
tes especificações: 


— 128K bytes de ROM (expandível 
até 640K) 

— Processador de 32 bits (MOTORO- 
LA 68008) 

— Sistema operacional QDOS com re- 
cursos de multiprogramação 

— Dois “microdrives” (unidade de fi- 
ta contínua que funciona como 
diskette) que possibilitam o armaze- 
namento de até 100K bytes cada 

— Uma nova linguagem SUPERBASIC 
com mais recursos que o BASIC do 
ZX81 e ZX SPECTRUM 

— ROM de 32K 

— Quatro softwares profissionais de 
PSION incluídos: Processador de 
texto, planilha eletrônica, gerencia- 






1) LEMBRE-SE: 
2) COMPARE: 
3) SOLICITE: 
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dor de banco de dados e sistema 
gráfico. 


E o que tem o OPD a mais? O que 
realmente destaca este micro de qual- 
quer outro é o sistema embutido de 


comunicação vocal e de dados. As es-. 


pecificações resumidas do OPD são: 


— 128K de ROM de software de siste- 
ma em 4 chips ICL de 32K bytes 
cada 

— Um chip TI TMS 5220 de sintetiza- 
dor de voz 

— Um ROM com vocabulário para o 
sintetizador 

— Dois diretórios telefônicos — 1 para 
chamadas de serviços computadori- 
zados, e outro para chamadas nor- 
mais (voz a voz) 

— Telefone embutido na própria uni- 
dade de teclado 

— 128K de RAM dinâmica 

— 2K de RAM estática com parâme- 
tros essenciais do sistema. Os dados 
são mantidos através de uma pilha 
de lítio com duração de 5 anos 

— 208K de ROM em cartucho com os 
quatro softwares de PSION mencio- 
nados acima para o QL. 

— 2 microdrives, de 95 K cada 

— Modem 

— Calculadora simples de 16 dígitos 
de precisão 


O micro em si não possui chave 
liga/desliga. Foi projetado para ser liga- 
do continuamente para atender chama- 
das telefônicas. O único interruptor é 
do vídeo, que pode ser desligado para 


UMA BOA NOTÍCIA PARA VOCÊ: 
Os leitores que assinam MICRÓBITS 
economizam tempo e dinheiro! 


Você irá receber cada número comodamente em sua casa, tão logo seja 
publicado. 

Preço Assinatura (6 números) 
Preço Nº Avulso 
Ainda hoje a sua assinatura. 


MICROBITS 


PEDIDOS DE ASSINATURA PARA: 


Editora Campus Ltda. 


Rua Barão de Itapagipe, 55 - Rio Comprido - 20261 Rio de Janeiro - RJ - Tel. 


aumentar a sua vida útil. Mesmo assim, 
se for deixado ligado por mais que 5 
minutos, sem qualquer atividade, a tela 
é apagada para proteger a camada de 
fósforo. 

Há um alto-falante embutido que 
permite monitorizar chamadas sem le- 
vantar a unidade do telefone. Mas para 
falar é necessário usar o telefone mes- 
mo — o OPD não possui microfone. 

Vários programas podem ser execu- 
tados simultaneamente. Assim, o usuá- 
rio não precisa esperar a execução de 
um aplicativo demorado para utilizar. 

O OPD atende o telefone, receben- 
do chamadas vocais ou de dados digi- 
tais, sem interferir nas aplicações em 
execução. Atende o telefone até quan- 
do o usuário está fora do escritório, e 
pode ser programado para responder 
com uma mensagem vocal através do 
sintetizador de voz. 

Para armazenar esta mensagem, é 
utilizado um vocabulário de 200 pala- 
vras. A mensagem é criada simplesmen- 
te digitando o texto no teclado. Qual- 
quer palavra não reconhecida é desta- 
cada na tela, para ser corrigida em 
seguida. 

E o preço? O OPD básico, com mo- 
nitor de nove polegadas, é de £1150 
(por volta de US$1200), mais £150 
para o cartucho de software PSION. 
Por este preço não há nenhum outro 
micro que possa competir com ele. A 
ICL espera vender 250.000 unidades 
em 1985 — será isto um sonho? Vere- 
mos mais para o final do ano como an- 
dam as vendas. 









Cr$ 27.000 
Cr$ 6.500 








: (021) 284 8443 
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com o prefixo. 


damente 200 prefixos. 


comandos (Figura 1). 


ra 3. 


o: 
. “a 
—. = 
al ? 
mm L 
pas 1 
=: 
Eai 
ço 
So 
mo 
— 








[ 


olhe 


veege 


CAM ES e) UT fumo Ca Jp a rs 


e ut Cs Pia PO POE pa pe if fra 





pa 
Lil 


RIR 


pa) 


Rj) 
ha 


IRRIER 


TUA DTL DOU AIH 


Cd a fa fis Ns o =) 
ps CI UM CCZ E Ca Tt Cr] 


[o ppa fo pos pos p= 






= UT =. 
REM C“PEROGRA 
:— o, = a Em 
EMATO SZTRAU 
LHO Dara ra 
HR AE mid A poi q 
= EH EE GS 
FHXE SnSTal 
Edi 3 DO ia Cas” Log 4 SR 
"2 34 + o U3 
PO AS dat pas Ses 
— - —— , É 
mL THE L 
sm, Lie —,— (ue cum á 
PRINT TRE à 
O — o — e «mm, “ 
ERLNT THB à 
== IH: 
Pri == ia 
Pg E ES 4 Pitas 
ide dd Sam e tr 4 
=" LI4: tis Li 
E ads 
Es dm $ = > «o 
H " VE mestras 
LE! Ac tUt 
DIM Dsig,.S! 
rua 4 -, 
He E e da 3 A ads — 
o Th E dE. A + 
ati Usa 
PRILHT 


INPUT N 
LF b=2 THEN 


2 
Ji 
4 
im 
TE 


AA E 
á 


ET M=H+B-i 
PF N>% THEN 
é g :s 
N>* THEN 


MT» 


os ulnos 


ad 


= 

E 
RHEJE Fr” 
SO a À 
Ee Rr 
a ae 

TE GE So 
RINT 
PHP tiT 
RIHT 


fumar 


Ju 





programa a seguir foi projetado para o usuário ra- 
dioamador criar uma lista de prefixos e nomes, os 
quais são colocados em ordem alfabética de acordo 


Com 16K de RAM é possível armazenar aproxima- 
Facilmente o leitor poderá modificar o programa 
para os mais variados tipos de aplicação. 


Quando rodado o programa, aparece o ''menu”” dos 


Um exemplo de entrada de dados é dado na Figura 
2,e a listagem dos prefixos e nomes já ordenados na Figu- 
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MENU DOS COMANDOS 


FIGURA 1 — 
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FIGURA 2 — ENTRADA DE DADOS 
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FIGURA 3 — LISTA COMPLETA 
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e VENDO outroco progra- 
mas de Lógica SINCLAIR. 
Envie sua lista de programas 
para: Sérgio S. Caixa, Caixa 
Postal 79406, CEP 25500 
São João de Meriti — RJ. 
Possuo mais de 500 progra- 
mas. 


e TROCO ou vendo pro- 
gramas para SINCLAIR e 
TRS-80. Mande listagem e 
envelope selado para respos- 
ta. Também quero trocar 
idéias, informações, dicas, 
curiosidades e correspon- 
dência. Marcelo D. Penalva, 
Av. 64 nº 2493, CEP 13500 
— Rio Claro — SP. 


e TROCO software, infor- 
mações, projetos de hardwa- 
ree ADD-ON's para o SIN- 
CLAIR ZX81 e compatí- 
veis. Compro e troco livros 
e revistas sobre o assunto 
em pauta. Necessito entrar 
em contato com quem pos- 
sua as revistas HOBBY 
ELECTRONICS dos meses 
6,7,8e 12 de 1983. Valé- 
rio F. Laube, Caixa Postal 
30, CEP 89260 — Schroeder 
— SC. 


e CRED-SOFT e SÉRIES 
SOFT-BOX para TK e simi- 
lares. Novo endereço: SOFT- 


CEP 25500 — São nos de 
Meriti — RJ. 
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SHIN 01-13, Cj. 


HARDWARE 


BOX, Caixa Postal 79406, 





MPRA, VENDA, TROCA, OFERTAS, 


PRESTAÇÃO DE SE RVIÇOS. 
Classifique como quiser, mas use este espaço, que é seu. 


e VENDEMOS e trocamos 
programas da linha SIN- 
CLAIR. Escrevam para: Rua 
Curuzu 62, Alto da Lapa, 
CEP 05084 — São Paulo — 
SP e forneceremos relação 
dos programas e seus preços. 


e ALTA RESOLUÇÃO -— 
programas para micros adap- 
tados: Pinball, G. Cósmica, 
Pac-Man etc. INÉDITOS: 
O-Bert, Bat Cage, River 
Raid, Rev. Colmeia e mais 
200 programas disponíveis 


para troca ou venda. Tratar: 


Alexandre M. de Brito, 
14/Cs. 4, 
CEP 71500 — Brasília — DF 
— Tel. (061) 577-3804. 


e VENDO e troco soft de 
comunicação e jogos para 
APPLE. Luiz Roberto — 
Tel. (011) 287- 4625. 


“e VENDE-SE programas pa 


ra TK, CP200 e similares. 
Possuo programas nacionais 


pansão de memória (1,. 
ORTN); Lay-out da placa 
SLOW (0,3 ORTN); Lista- 
gem da EPROM (0,3 ORTN). 
Cheque nominal para Jan 
Martin Lund, Rua Frederico 
Ozanan 16 bloco A apt? 
21, CEP 11100 — Santos — 
SP. 


e VENDO projeto de uma 
impressionante máquina ele- 
trônica, a qual pode ser pro- 
gramada para ensinar lín- 
guas, ciências etc. É total- 


mente transistorizada. Fun-. 


ciona com cartões perfura- 
dos. Tratar com Valdeci — 
Rua Terenzio Galesi 299, 
Algodoal, CEP 13400 — 
Piracicaba — SP. 


e VENDO  CP200 com 
mais de 50 programas (em 
Assembler e BASIC). Entre 
em contato com André Luiz 
S. Brisighello pelo telefone 
(011) 521.-6345. = 


e importados. Faço descon- . 


tos especiais. Alexandre Ba- 
sílio Caputo. Rua Ipurinás, 
46 — Brooklin Novo — CEP 
04561 — São Paulo — SP — 
Tel. (011) 240-0636. 


e TROCO programas para 
linha SINCLAIR -— Tel. 
(011) 531-3600 e 520-2863. 
Av. Jônia 213, CEP 04634 


| — São Paulo — SP, com 


Rinaldo. 





e NE-Z8000 Esquema 
completo com SLOW e ex- 





e INSTALO em seu micro 


da linha SINCLAIR alta re- 


solução, Inversão de vídeo e 


filtro para HIGH-SPEED. 
Luiz Roberto — Tel. Pd 


287-4625. 





CLUBES 


e COMPRO um TK82 ou. 


TK83. Entre em contato 
com Wellington . 
Mourão, SQ-15, Q-13 Casa 


13, Cidade Ocidental — CEP 


77220 — Luziânia — GO. 


e CW NO ZX81 — VENDO 
interface (mais fita e ma- 
nual). Temos 600 programas 
para escolha. Informações 


com A. K. Produções — Cai- 


xa Postal 77 — CEP 95590 
— Tramandaí — RS. 


“e RADIOAMADOR, VEN- 


DO interfaces para RTTY e 
CW para micros compati- 
veis com o SINCLAIR, 


TK82C, TK83/85, CP200, 


ZX81, TIMEX 1000. Infor- 
mações com PY2-EMI Rena- 
to Strauss. Rua Cardoso de 


Almeida 654/32 — CEP 


05013 — São Paulo — SP. 


e VENDO TK85 com 48K, 
alta resolução, saída para. 


monitor de vídeo, 2 grava- 
dores, joystick e 170 progra- 


mas. Tratar com Eugênio 
Betanho. Tel. 


São Paulo — SP. 





e ESTAMOS formando um clube para quem possui micros o 


de lógica SINCLAIR e também vídeo-games. Trocaremos 


revistas, programas etc. Daremos dicas de jogos e muito 
mais. Marcelo Cláudio Faria, Cond. Raul Renato, Bloco L o 


apt? 14, Jardim anta — CEP 13100 — pr dinga — SP. 


Martins | 


si 








OUANTOS BYTES AINDA RESTAM? 


Na digitação de programas longos, esta pergunta se torna 
frequente, e às vezes angustiante. 

A memória ainda não ocupada pelo seu programa BASIC 
está entre os endereços apontados por E.LINE e RAMTOP. 
Se você não sabe destas coisas, recomenda-se a leitura atenta 
do manual nos tópicos VARIÁVEIS DO SISTEMA e ORGA- 
NIZAÇÃO DA ARMAZENAGEM. Observe o esquema 
abaixo: 


Variável 
do Sistema 


| enoeneço 


Função 


4004 RAMTOP | Endereço do topo da RAM 
existente ou alterada pelo 
usuário 

Ponteiro para a área de 


trabalho 


16388 


16404 | 4014 E. LINE 


Assim, em BASIC, para saber o número de bytes “livres”, 
digite o comando direto 


COMO ACELERAR A LISTAGEM 


Todo usuário SINCLAIR sabe que quando a tela fica 
cheia, durante a digitação de um programa longo, ocorre uma 
listagem automática a fim de abrir espaço a cada linha digita- 
da. Para evitar essa perda de tempo, vários métodos são em- 
pregados pelos usuários. Pode-se, por exemplo, “'Pokear”' os 
endereços 16419 e 16420, colocando neles o nº da última 
linha digitada, a fim de movê-la para o topo da tela. Porém 
este método exige que o usuário nmtemorize ou procure no 
manual estes endereços. Por isto, alguns desenvolveram roti- 
nas em linguagem de máquina que realizam este trabalho 
mas, neste caso, a rotina terá que ser introduzida antes de ini- 
ciar a digitação do programa, sem contar o inevitável consu- 
mo de memória. Outros, ainda, digitam em modo FAST, 
enfrentando o piscar da tela. 


Dicas 





PRINT (PEEK 16388+256*PEEK 16389) — (PEEK 
16404+ 256*PEEK 16405) 


Ou então você pode transformar isto num programa em 
linguagem de máquina, e poupar toda esta digitação trabalho- 
sa. Vejamos como: 


O REM 14 caracteres quaisquer 


16514 LDHL, (E.LINE) 2A 14 40 
16517 PUSHHL E5 

16518 POPBC C1 

16519 LDHL, (RAMTOP) 2A 14 40 
16522 ANDA A7 

16523 SBC HL, BC ED 42 

16525 PUSHHL E5 

16526 POP BC C1 

16527 RET C9 


E agora, para saber o número de bytes restantes na 
memória de seu micro é só digitar PRINT USR 16514. 

Se você for fazer muitas vezes esta consulta, transforme- 
a em linha de programa, assim: 


9998 STOP 
9999 PRINT USR 16514;” BYTES RESTANTES” 


Acesse esta pequena rotina através de GOTO 9999. Sim- 
ples, não? 


NELSON N. S. SANTOS 


Para evitar todas essas desvantagens, utilizo um método 


muito simples, que acredito ser inédito, pois nunca o vi publi- 


cado em revistas especializadas. Portanto, quando a listagem 
começar a rolar pela tela, entre diretamente com os seguintes 
comandos: 


LIST 
EDIT 
NEW LINE 


E continue a digitar o programa. Assim a tela ficará lim- 
pa, com a última linha digitada antes deste procedimento 
aparecendo no topo. 


GELSON DIAS SANTOS 
Porto Alegre — RS 


E Ss shi 
ENTRE UM PROGRAMA EOUTRO 








SINTONIZE O PROGRAMA 
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Livros 


e LOIOLA, Caetano R. A. 

Rotinas Matemáticas em BASIC para 
MICROS 

Série SOFTWARE, Editora Campus, 
1985. 


A série SOFTWARE da CAMPUS é 
coordenada por Jorge da Cunha Perei- 
ra Filho, autor de BASIC BÁSICO, 
BASIC PARA MICROS PESSOAIS, 
RPG-Il, INTRODUÇÃO À PROGRA- 
MAÇÃO FORTRAN e outras obras. 

No livro em questão, o leitor é re- 
comendado a ler os apêndices antes de 
iniciar a leitura do conteúdo em si. 
Destes apêndices (A a G), os de Aa D 
são escritos pelo próprio coordenador e 
'demonstram a sua preocupação em pa- 
dronizar o conteúdo dos livros da sé- 
rie. Assim, estes mesmos apêndices são 
incluídos nos outros componentes da 
série SOFTWARE. A composição des- 
tes apêndices é: 


APÊNDICE A "Como Utilizar os 
Programas deste Livro” 


É apresentada a padronização dos 
programas componentes do livro — es- 
pecificamente a documentação que é 
subdividida em “Ficha”, e três manuais. 


— FICHA: Uma descrição das caracte- 
rísticas do programa — Nome do 
autor, versão, data, linguagens utili- 
zadas, microcomputador e compa- 
tíveis, recursos necessários (memó- 
ria RAM, “joystick”, impressora, 
«.), instruções/comandos especiais 
(SLOW, LLIST, DLOAD, ...) e 
observações. 
— MANUAL DE UTILIZAÇÃO: Apre- 
senta o enunciado do problema e a 
- descrição do uso do programa. 

— MANUAL DE OPERAÇÃO: Como 
operar o programa — como instalá- 
lo, processamento normal e exce- 
ções e erros. 

— MANUAL TÉCNICO: A solução do 
problema. 


APÊNDICE B “Carregamento de 
Programas a partir de Fitas Cassete”. 


Seguem instruções de como ligar e 
acoplar o micro e gravador, ajustes nos 
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programas listados no io Es 
Xá tê ser solicitados em. 


EDITORA CAMPUS LTDA. 





controles do gravador e outras infor- 
mações necessárias para se carregar um 
programa com sucesso. 


APÊNDICE C — ''Armazenamento de 
Programas em Fita Cassete”. 


Os cuidados que devem ser tomados 
para armazenar seus programas em fita 
cassete. 


APÊNDICE D — “Cuidados com grava- 
dores e Fitas Cassete”. 


Como escolher um gravador de boa 
qualidade e recursos necessários e cui- 
dados a serem tomados quanto a ope- 
ração e limpeza. 

Escolha de fita cassete — qualidade, 
tipo (normal ou baixo ruído), cuida- 
dos com seu uso e armazenamento. 

Ao estudar estes apêndices, o leitor 
irá tirar o maior proveito desse livro e 
também dos outros componentes da 
série por causa da padronização exigi- 
da pelo coordenador. 

Chegando, finalmente, ao livro em 
questão, o autor informa ao leitor que 





a obra não é de cálculo numérico, mas 
de aplicação do mesmo. Outro ponto 
destacado é que, embora os programas 
fossem desenvolvidos em um TK82-C 
com expansão de 16K, houve uma 
preocupação constante de utilizar ao 
máximo o BASIC padrão para facilitar 
a compatibilização entre outros equi- 
pamentos. 

O conteúdo do livro é composto de: 


Capítulo 1: Matrizes: Descrição de ma- 
trizes em geral — retangular, quadrada, 
linha, coluna, determinante: Operações 
básicas — adição, subtração, multipli- 
cação, transposição, inversão (Progra- 
ma POM1). Operações entre matrizes e 
escalares (POE 1). Operação com linhas 
e colunas (Programa POL1). Outras 


operações envolvendo matrizes (Pro- 
grama POO1). 


Capítulo 2: Raízes de Equações: Fun- 
ções, polinômios, limite de iterações, 
convergência, raízes reais e complexas, 
derivada de uma função, métodos 
Newton-Raphson, Regula-Falsi, Bis- 
secção (rotinas RREINER, RREZREF, 
RRE3BIS no programa PRE1). 
Encontro de todas as raízes de um 
polinômio — programa PTR1. 


Capítulo 3 a 6: Seguem os capítulos 
com os tópicos: 


— Capítulo 3: Resolução de Sistemas 
de Equações Lineares. 

— Capítulo 4: Polinômios. 

— Capítulo 5: Integração Numérica. 

— Capítulo 6: Estatística. 


Em suma, este livro é uma excelen- 
te fonte de programas na utilização de 
métodos numéricos num microcompu- 
tador. A apresentação dos algoritmos, 
fluxogramas, programas e manuais é 
bem clara e há uma preocupação ex- 
cepcional em manter uma padroniza- 
ção, que suponho será mantida nas ou- 
tras obras desta série SOFTWARE. Os 
programas como estão podem ser uti- 
lizados imediatamente nos micros da 
linha Sinclair, e não deverá haver gran- 
des dificuldades em transformá-ios pa- 
ra outros tipos de micro. 
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Ano | — Nº 1 


EDIÇÕES AVULSA 


Complete a sua coleção de MICROBITS solicitando os números que lhe faltam. 
Verifique a matéria publicada nas edições anteriores: 


Introdução ao CLUBE NACIONAL DOS 
TK/NE/SINCLAIR 
Programa “PLOTAR” 


Ano | — Nº 2 


Linguagem de máquina — Onde e Como? 
“Benchmark” — BASIC comparada a linguagem de 
máquina 

Como Criar um Cadastro (Parte 1) 

Programa “CORRIDA DE CARROS” 


Ano | — Nº 3 


Programa “CONTAS A PAGAR” 

Como Proteger Seus Programas 

Conserto de um Programa Defeituoso 

Teclado Musical 

Conversão Hexadecimal- Decimal 

Medidor de Intensidade de Saída do Gravador para 
“LOAD” 


Ano | — Nº 4 


Armazenar a Imagem Numa Variável 

O TK85 da Microdigital — Vale a Pena? 
Testando o TIG-LOADER 

Programa “SENHA” 

Programa “VALOR PRESENTE” 


Ano | — Nº 5 





BENCHTEST: ANÁLISE DO RINGO 
Maior Resolução Gráfica 

Alta Resolução no Vídeo 

VU Incrementado 

Codificador de Texto 

Submarino Nuclear 

Curvas Paramétricas 


Ano | — Nº 6 





Como Criar Caracteres Especiais no Seu Micro — 
Parte | 

Linguagem de Máquina: Como Usar a Tela 
Benchtest: CMS/ZX da Polimicro 

Como Criar um Cadastro (Final) 

Sistema de Equações 


COEDITORA CAMPUS LIDA. 





IMPORTANTE 


Qualquer dos seis números publicados no Ano | po- 
de ser obtido mediante envio de cheque nominal di- 
retamente a: ; 
MICRO BITS INFORMATICA LTDA. 
CAIXA POSTAL 12.464 
CEP 04798 — SAO PAULO — SP 





Ano Il — Nº 1 

e (Como Criar Caracteres Especiais no Seu Micro — 
Parte || 

Salvando e Restaurando Telas 
Benchtest: Teclado da Speed 
Consumo 

Crie uma Linha REM 

Controle de Gravador K7 
Benchtest: Gluckstick Digital 
PERT 

Jogo de Inversão 

Caracteres de Vídeo 

Desenhe na Tela 

Interface para Telegrafica (C.W.) 
Números Primos 


Ano Il — Nº 2 

e A Grande Arma 

e (Como Criar Caracteres Especiais no Seu Micro — 
Parte III 

Teclados de Membrana 

FORCA em Linguagem de Máquina 

Além do BASIC 

Programa PIRATAS 

Avenida || 


IMPORTANTE 


Os números publicados a partir do Ano II nº 1 po- 

dem ser obtidos mediante envio de cheque nominal 

diretamente a: 
Editora Campus Ltda. 


Rua Barão de Itapagipe, 55 
CEP 20261 — Rio de Janeiro — RJ 
Tel.: (021) 284 8443 








e Números antigos serão vendidos ao preço de capa 
do último número lançado. 
e Este valor já inclui as despesas de correio. 
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